unit frProjectPage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frBillPage, StdCtrls;

type
  TfrmProjectPage = class(TfrmBillPage)

  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitBrowserForm(AFormName: string = ''); override;
    procedure SelectClass(AClass: string; ADepartment: string); override;          

  end;

var
  frmProjectPage: TfrmProjectPage;

implementation

uses
  fProjectPage, fBrowserBase;


{$R *.dfm}

procedure TfrmProjectPage.SelectClass(AClass: string; ADepartment: string);
begin
  (FBrowserForm as TfmBrowserBase).SelectClassByText(AClass, ADepartment);
end;

procedure TfrmProjectPage.InitBrowserForm(AFormName: string = '');
begin
  FBrowserForm := TfmProjectPage.Create(Self.Owner);
  FBrowserForm.Name := 'fmProjectPage';
  FBrowserForm.FormStyle := fsNormal;
  FBrowserForm.WindowState := wsNormal;
  FBrowserForm.Parent := Self;
  FBrowserForm.BorderStyle := bsNone;
  FBrowserForm.Align := alClient;
  FBrowserForm.Visible := True;
end;

end.
